Use Rx Expression as Regexp in Mini-buffer

How to use rx expression in Emacs mini-buffer to replace the cumbersome regexp when calling highlight-regexp function?

(defun mk/minibuffer-read-rx-expresion-to-regexp ()
  "Read rx expression and inert the converted regexp into the current minibuffer"
  (interactive)
  (insert (rx-to-string (read--expression "Enter expression: " "(seq )"))))
  
(define-key minibuffer-local-map (kbd "C-r") #'mk/minibuffer-read-rx-expresion-to-regexp)